`graficar` <-
function(m)
	{
  ## X11(width = 5, height = 4)
	## Obtengo los datos de las frecuencias de edades para los MACHOS.
	machos <- as.matrix(m$IALK)
	Resumen <- as.matrix(m$Resumen)
	
	pm <- apply(machos,2,sum)
	cm <- as.numeric(names(pm))
	mm <- cbind(cm,pm)

	## Construyo una matriz donde meter todos los datos de 
	## Frecuencias ajustadas, para machos, hembras e indeterminados	
	matrix <- matrix(0,ncol=2,nrow=max(mm[,1])+1)

	## Creo la primera columna con las edades desde 0 hasta la edad
	## maxima entre los machos, hembras e indeterminados
	matrix[,1] <-seq(0,max(mm[,1]))

	## Paso los datos de la distribucion de MACHOSa la matrix comun
	for (k in 1: length(mm[,1]))
		{
		for (j in 1: length(matrix[,1]))
			{
			if (mm[k,1]==matrix[j,1]) {matrix[k,2] <- mm[j,2]}
			}
		}

	## Le asigno nombres a las columnas
	colnames(matrix)<-c("Edad","Machos")

	ppp<-matrix[,2]/sum(matrix[,2])
	names(ppp) <- matrix[,1]
    if (yearA !=0 & zonaA!=0)
      {
      barplot(ppp,space=0,xlab="Age",ylab="Frequency",
			main=print(paste("Year:",Resumen[3,2]," zone:",Resumen[4,2]," ")),
			sub=paste("N datos:",sum(matrix[,2])),
			cex.names=.7,cex.axis=.7,ylim=c(0,0.25),
			xlim=c(0,18))
			}
     if (yearA == 0 & zonaA != 0)
      {
      barplot(ppp,space=0,xlab="Age",ylab="Frequency",
			main=print(paste("No Year and zone:",Resumen[4,2]," ")),
			sub=paste("N datos:",sum(matrix[,2])),
			cex.names=.7,cex.axis=.7,ylim=c(0,0.25),
			xlim=c(0,18))
			}
    if (yearA !=0 & zonaA == 0)
      {
      barplot(ppp,space=0,xlab="Age",ylab="Frequency",
			main=print(paste("Year:",Resumen[3,2]," and no zone:")),
			sub=paste("N:",sum(matrix[,2])),
			cex.names=.7,cex.axis=.7,ylim=c(0,0.25),
			xlim=c(0,18))
			}
     if (yearA == 0 & zonaA == 0)
      {
      barplot(ppp,space=0,xlab="Age",ylab="Frequency",
			main="No Year and no zone",
			sub=paste("N:",sum(matrix[,2])),
			cex.names=.7,cex.axis=.7,ylim=c(0,0.25),
			xlim=c(0,18))
			}
      }

